home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 June
/
1990-06.d64
/
ml programming
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
351b
|
13 lines
80 print"[147]"
90 poke 53265,27:rem default setting
100 for j=828 to 864:read x
110 t=t+x:poke j,x
120 next j
130 if t<>4077 then stop
200 data 169,1,141,25,208,162,146,160,6,173,18,208,16,4,162,1
210 data 160,0,142,18,208,140,33,208,173,13,220
220 data 41,1,240,3,76,49,234,76,188,254
300 poke 56333,127:rem disconnect regular irq
310 poke 788,60:poke 789,3
320 poke 53274,129:rem connect raster irq